Private Casting/Casting One.bin/Docs/Interview.dir/Internal_61.ls

Text File | 1997-01-22 | 1.5 KB | 53 lines

on mouseEnter
  cursor([cast "curs", cast "mask"])
  puppetSprite(the currentSpriteNum, 1)
  set the blend of sprite the currentSpriteNum to 50
end

on mouseLeave
  cursor(-1)
  set the blend of sprite the currentSpriteNum to 100
end

on mouseUp
  global chica
  puppetSprite(14, 1)
  cursor(-1)
  set the blend of sprite the currentSpriteNum to 100
  updateStage()
  if the clickOn = 6 then
    if the type of sprite 18 = #digitalVideo then
      set the movieRate of sprite 18 to 0
    end if
    puppetSound(0)
    go(1, "models")
  else
    if the clickOn = 12 then
      set the movieRate of sprite 18 to 0
      set the movieTime of sprite 18 to 0
      set the castNum of sprite 14 to the number of member "play"
    else
      if the clickOn = 13 then
        set the castNum of sprite 14 to the number of member "pause"
        set the movieRate of sprite 18 to -2
      else
        if the clickOn = 14 then
          if the movieRate of sprite 18 > 0 then
            set the castNum of sprite 14 to the number of member "play"
            set the movieRate of sprite 18 to 0
          else
            set the castNum of sprite 14 to the number of member "pause"
            puppetSound(0)
            set the movieRate of sprite 18 to 1
          end if
        else
          if the clickOn = 15 then
            set the castNum of sprite 14 to the number of member "pause"
            set the movieRate of sprite 18 to 2
          end if
        end if
      end if
    end if
  end if
end